home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 September (IDG) / Sep99.iso / MarkzScout™ 14-day trial / Scripts / Images.M1S < prev    next >
Encoding:
Text File  |  1999-02-05  |  476 b   |  28 lines  |  [TEXT/MSCT]
  1. //
  2. // Images.M1S: show image list for document
  3. //
  4.  
  5. //
  6. // *************************************
  7. // Procedures
  8. // *************************************
  9. // 
  10. proc imageProc
  11.   if it <> theJob then
  12.     print it.CLASS_NAME+chr(9)+it.name
  13.   endif
  14. endproc
  15.  
  16. // 
  17. // Execute a procedure for all images
  18. //
  19. theJob = it
  20.  
  21. print "Complete Image List for "+theJob.name
  22.  
  23. on document do imageProc
  24. scan theJob links uses,contains,overlaps,defines
  25.  
  26. print "---------------------------------------"
  27.  
  28.